home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / bbsckit / bbsccloc.c < prev    next >
C/C++ Source or Header  |  1979-12-31  |  4KB  |  120 lines
  1. /*
  2.         bbsclock.c
  3. */
  4.  
  5. #include <time.h>
  6.  
  7. /* copy time into arg sting in form (HH:MM:SS xM) */
  8. gettime(_ttime)
  9. char    *_ttime;
  10.         {
  11.         long tloc ; char tchar ; int hour ;
  12.         struct tm *localtime() , *tadr ;
  13.         tloc = time((long *) 0) ;               /* get time to tloc */
  14.         tadr = localtime (&tloc) ;
  15.         tchar = 'A' ; hour = tadr->tm_hour ;
  16.         if(hour > 12) { hour -= 12 ; tchar = 'P' ; }
  17.         sprintf(_ttime,"%.2d:%.2d:%.2d %cM",hour,tadr->tm_min,
  18.                 tadr->tm_sec,tchar) ;
  19.         }       
  20.  
  21. getdate(_mm,_dd,_yy,_month,_day,_year,_date,_week)
  22. char    *_mm,           /* 2 digit */
  23.         *_dd,           /* 2 digit */
  24.         *_yy,           /* 2 digit */
  25.         *_month,        /* long */
  26.         *_day,          /* long */
  27.         *_year,         /* long */
  28.         *_date,         /* long month day, year */
  29.         *_week;         /* day of week */
  30.         {
  31.         long tvar ;
  32.         struct tm *localtime() , *tadr ;
  33.  
  34.         time(&tvar) ;                   /* get time to tvar */
  35.         tadr = localtime (&tvar) ;
  36.  
  37.         switch (tadr->tm_wday)
  38.                 {
  39.                 case 0:
  40.                         strcpy(_week,"Sunday ");
  41.                         break;
  42.                 case 1:
  43.                         strcpy(_week,"Monday ");
  44.                         break;
  45.                 case 2:
  46.                         strcpy(_week,"Tuesday ");
  47.                         break;
  48.                 case 3:
  49.                         strcpy(_week,"Wednesday ");
  50.                         break;
  51.                 case 4:
  52.                         strcpy(_week,"Thursday ");
  53.                         break;
  54.                 case 5:
  55.                         strcpy(_week,"Friday ");
  56.                         break;
  57.                 case 6:
  58.                         strcpy(_week,"Saturday ");
  59.                         break;
  60.                 default:
  61.                         strcpy(_week,"Unknown ");
  62.                         break;
  63.                 }
  64.  
  65.         switch (tadr->tm_mon)
  66.                 {
  67.                 case 0:
  68.                         strcpy(_month,"January ");      
  69.                         break;
  70.                 case 1:
  71.                         strcpy(_month,"February ");     
  72.                         break;
  73.                 case 2:
  74.                         strcpy(_month,"March ");        
  75.                         break;
  76.                 case 3:
  77.                         strcpy(_month,"April ");
  78.                         break;
  79.                 case 4:
  80.                         strcpy(_month,"May ");  
  81.                         break;
  82.                 case 5:
  83.                         strcpy(_month,"June ");
  84.                         break;
  85.                 case 6:
  86.                         strcpy(_month,"July "); 
  87.                         break;
  88.                 case 7:
  89.                         strcpy(_month,"August");
  90.                         break;
  91.                 case 8:
  92.                         strcpy(_month,"September ");
  93.                         break;
  94.                 case 9:
  95.                         strcpy(_month,"October ");
  96.                         break;
  97.                 case 10:
  98.                         strcpy(_month,"November ");
  99.                         break;
  100.                 case 11:
  101.                         strcpy(_month,"December ");
  102.                         break;
  103.                 default:
  104.                         strcpy(_month,"Unknown ");
  105.                         break;
  106.                 }
  107.  
  108.         sprintf(  _mm,  "%.2d",tadr->tm_mon ) ;
  109.         sprintf(  _dd,  "%.2d",tadr->tm_mday) ;
  110.         sprintf(  _yy,  "%.2d",tadr->tm_year) ;
  111.         sprintf( _day,  "%.2d",tadr->tm_mday) ;
  112.         sprintf(_year,"19%.2d",tadr->tm_year) ;
  113.  
  114.         strcpy(_date,    "");   /* clear date */
  115.         strcat(_date,_month);   /* then concat the month,etc. */
  116.         strcat(_date,  _day);
  117.         strcat(_date,  ", ");
  118.         strcat(_date, _year);
  119.         }
  120.         strcat(_date